﻿Public Class Form3

    Dim count As Integer = 0

    Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If MsgBox("Are you sure you want to quit? All connections will be terminated.", MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "Warning") = vbOK Then
            Dim Command As String
            Command = "netsh wlan stop hostednetwork"
            Shell("cmd /c" & Command, AppWinStyle.Hide, True)
            End
        Else
            e.Cancel = True
            Exit Sub
        End If

    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

        Select Case (count Mod 2)
            Case 0
                PictureBox2.Visible = True
                Label4.Visible = True
            Case 1
                PictureBox2.Visible = False
                Label4.Visible = False
        End Select
        count += 1
    End Sub

End Class